Forging America - The Int…ive History of Bethlehem/ForgingAmerica.iso/pc/warintroduction.dxr/template elements_22_template rollover for sound.ls

Text File | 2003-01-01 | 545 b | 26 lines

property spritenumber, memberrootname, donotdomouseleave

on mouseEnter
  spritenumber = the rollover
  memberrootname = sprite(spritenumber).member.name
  sprite(spritenumber).member = memberrootname & ",over"
  donotdomouseleave = 0
end

on mouseLeave
  if donotdomouseleave = 1 then
    exit
  end if
  sprite(spritenumber).member = memberrootname
end

on mouseDown
  donotdomouseleave = 1
  sprite(spritenumber).member = memberrootname & ",down"
end

on mouseUp
  sprite(spritenumber).member = memberrootname & ",over"
  dosoundtoggle()
end